xc% = 30 : yc% = 30 : r% = 3
w% = 20 : h% = w%
SCREEN _newimage( xc%*2+1, yc%*2+1, 17)
COLOR 63

DO
CLS

COLOR 63
DRAW "TA " + a%
DRAW "B M " + xc% + "," + yc%
DRAW "B L" + w% + " B U" + h%
p1x% = POINT(0) : p1y% = POINT(1)
DRAW "B M " + xc% + "," + yc%
DRAW "B R" + w% + " B U" + h%
p2x% = POINT(0) : p2y% = POINT(1)
DRAW "B M " + xc% + "," + yc%
DRAW "B R" + w% + " B D" + h%
p3x% = POINT(0) : p3y% = POINT(1)
DRAW "B M " + xc% + "," + yc%
DRAW "B L" + w% + " B D" + h%
p4x% = POINT(0) : p4y% = POINT(1)
DRAW "B M " + p1x% + "," + p1y% + "M" + p2x% + "," + p2y% + "M" + p3x% + "," + p3y% + "M" + p4x% + "," + p4y% + "M" + p1x% + "," + p1y%
COLOR 62
CIRCLE ( xc%, yc% ), 18


COLOR 60
DRAW "B M " + p1x% + "," + p1y%
DRAW "B F" + r%
CIRCLE (POINT(0), POINT(1)), r%
COLOR 57
DRAW "B M " + p2x% + "," + p2y%
DRAW "B G " + r%
CIRCLE (POINT(0), POINT(1)), r%
COLOR 58
DRAW "B M " + p3x% + "," + p3y%
DRAW "B H " + r%
CIRCLE (POINT(0), POINT(1)), r%
DRAW "B M " + p4x% + "," + p4y%
DRAW "B E " + r%
COLOR 13
CIRCLE (POINT(0), POINT(1)), r%


IF _mousebutton THEN WHILE _MOUSEBUTTON : WEND
SLEEP IFF ( a% MOD 45 = 0, 1.75, 1.25 )
a% = a% + 5
LOOP